10 DATA 160,0,162,34,132,253,134,254,169,1
20 DATA 145,253,174,254,31,208,5,206,253,31,48,53
30 DATA 206,254,31,162,34,132,251,134,252,24,177,251,248
40 DATA 113,251,216,145,251,8,230,251,208,2,230,252
50 DATA 165,253,197,251,165,254,229,252,176,13,40,144,208,8
60 DATA 230,253,208,2,230,254,152,145,253,40,144,215,176,213
70 DATA 177,253,201,16,144,13,177,253,74,74,74,74
80 DATA 9,48,32,210,255,177,253,41,15,9,48,32,210,255
90 DATA 166,253,208,2,198,254,202,134,253,224,0
100 DATA 165,254,201,34,176,219,169,13,76,210,255
101 PRINT"[147]":POKE53280,0:POKE53281,0
110 POKE646,15:FORJ=8192TO8314:READ X:T=T+X:POKEJ,X:NEXTJ:IFT<>18933THENSTOP
120 INPUT "2 RAISED TO POWER (0=STOP)";P:IFP=0THENEND
130 POKE 8189,P/256:POKE8190,PAND255
140 TI$="000000":SYS 8192:PRINT:PRINT"TIME ="TI/60" SECS."
150 GOTO120